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“TAILS tt at con Convert Double Floating to Quadword 
«IDENT /1-006/ ; File: COBCVTDQ.MAR 


SERRA XXX 


COPYRIGHT (c) 1978 


1980, 1982, 1984 BY 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


*@ ® 
*@ ® 
*@ ® 
*@ ® 
*@ * 
*@ ® 
21 ® 
*® ® 
*® ® 
se 0 * 
—AA— J 
—R ® 
3* fe 
2* * 
3* ® 
3* 
2* * 
3* * 
:* ® 
-* ® 
® e 


OTHER 


Ha 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


AN 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MALAAAAAARAAARAARARAALALLASALSLALESE SESE S ESE EERE EEE EERE ESE REE REESE TEESE EES ESS 


Marty Jack, 14-Mar-1979 


; MODIFIED BY: 


8 Aunu: COBOL SUPPORT 
g + 

00 ; ABSTRACT: 
00 3 This module contains the routine that converts double floating 
8 3 numbers to quadword. 
00 3 
00 3 
00 3; VERSION: 1 
00 : 
00 3; HISTORY: 
00 : 
00 3; AUTHOR: 
00 3 
00 ; 
ae 

0 3 
00 3 
00 3 


1 
(1) 


— en 


t Convert D quole Floatin dvadwor 15-SEP-1984 23:38: AX/VMS Macro v04-00 
ORY  betal led Current Bf? x History 6-S ets 18:28:08 YeoBRTL. SRC JCOBCVTDQ.MAR; 1 
49 -SBTTL HISTORY ; Detailed Current Edit History 
; Edit History for Version 1 of COBCVTDO 
4 ; 1-001 = Original. MLJ 14-Mar-1979 
5; 1- ¢ - Correct problem with high order Longuord. MLJ 22- ne Whi 
§ 3 1- - Correct round towards zero problem. X 12-Ju =197 
: 1-004 = Make external references oupt ie t. RKR 17-JULY-79 
. 8 3 1-005 - Changs ot all { references to FORSCNV_OUT_E to COBSCNVOUT. 
0 60 ; 1-006 = Cosmetic ——— 18-OCT-79 


— 
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r 
ONS 6-SEP-1984 COBRTL.SRCIJCOBCVTDQ.MAR; 1 
«SBTTL DECLARATIONS 


INCLUDE FILES: 
SOSCDEF 


; EXTERNAL SYMBOLS: 
-DSABL GBL 


Prevent undefined symbols from 
being automatically global 


e 
ea 
8 
8 
i 
8 
71 
18 
fi -EXTRN COBSCNVOUT 3; E-format conversion 
8 75 -EXTRN LIBSSTOP ; Error halt 
8 6 -EXTRN OTSS_FATINTERR ; Fatal internal error code 
0 78 ; 
ane 
000 1 ; MACROS: 
000 ¢ 3 NONE 
3 
00 > 3 
000 6 ; PSECT DECLARATIONS: 
me"9000 es -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
000 9 ; 
0000 90 ; EQUATED SYMBOLS: 
88 91 ; NONE 
$33 ae 
00 94 ; 
0900 95 ; OWN STORAGE: 
0000 «Fi 
0000 98 : The fol Loving constant has the value 2**32. It is used for scaling 
0000 100 ; the high 32 bits and for compensating for unsigned arithmetic. 
6C 29 67 49 29 04 000 191 BIAS: -PACKED 4294967296 
$06 108 ; The following constant is 2**32-1. It's subtracted from negative numbers, 
Babe ! : ; to get a DIVP to give the correct high-order longword. 
5C 29 67 49 29 04 006 196 BIAS_1: PACKED 4294967295 
0000000A poe + BIAS_DIGITS=1 


os 
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.SBTTL COBSCVTDQ_R8 


er 
R8 


FUNCTIONAL DESCRIPTION: 
Converts a double floating number to quadword. 
CALLING SEQUENCE: 
JSB COBSCVTDQ_R8 (scale.rl.v, src.rd.r, dst.wq.r) 
Arguments are passed in R6, R7, and RB. 
INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
pultiptied to scale the seme os the. 
internal representation of the dest. 

SRC.rd.r The number to be converted 

IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.waq.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 
Destroys registers RO through R8. 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Fe Ge Ge Ge Ge Ge Ge Se 


PWNS OD NA OD NAME WN SO OD NAME WIN O ODNOUS WN" 


COBSCVTDQ_R8:: 
SOBL2 #48,SP 3 Allocate temp space 
MOVD (R75, (SP) + Get input number 


: Make a descriptor for the temporary string. 


PUSHAB 8(SP) : Address = space reserved 
MOVB #OSCS$K_CLASS_S,-(SP) ; Class = static . 
MOVB a0 C$K_DTYPE_T,-(SP) 3; Data type = ASCII string 
MOVW #38,-(SP) ; Length in bytes 


: Call COBSCNVOUT. 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 
—————⏑ — — — —— —— 
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1 606 CORSE VIDO RB ° a78Ep= 1582 Foiasiog LeRaN TS eae SeobCuTog mars: 29° (2, 
1F pp 1 167 #31 3; Digits in fraction 
04 AE F 198 PUSHAB 4(SP) ; Output string descriptor 
10 At oF 18 PUSHAB yet: 3; Number to convert 
00000000 ' GF 9 F 6 170 CALLS #3,G*COBSCNVOUT : Call conversion routine 
55 50 € D 3 BLBC RO, 208 : Should never fail 
0 178 ; Convert the exponent and correct for scale factor. 
6— 02 33 AE 8 9 175° CVTSP #2,51(SP),#2,(SP) 3; Make peches exponent 
2° 6E 6 6 178 CVTPL @# eae} R ; Make longword exponent 
6 E71 A646 E 00 4 Ve MOVAB = 34( 6)EROI,R6 3; Correct for fraction size and scale 
6 r 179 3 Convert the fraction to packed. 
12 AE 10 AE 90 OO3F 181 ° MOVE 16(SP),18(SP) ; Move sign over "'."' 
6—E Ff 12 AE 1F O09 0044 #1 ¢ CVTSP) #31,18(SP) ,#31, (SP) z Make packed fraction 
10 AE 13 00 6& 1F 56 FB O04, ; ASHP = RO, #31, (SPS 40.419, 16(SPS ; Sca e to temporar 
s also clears 
OD 1D $083 188 BVS 10$ : Branch if won't fit in 19 digits 
68 63 13 36 Ones 136 CVTPL #19, (R3), (RB) 3 ae to penguers 
3 also clears 
08 1D 0058 188 avs 113 i can't fit in 32 bits 
68 88 €18F 78 OOSA 189 ASHL #-31,(R8)+, (RB) : Spread sign bit 
50 06 OOSF 190 INCL R 3 Indicate success, RO = 1 
5E 38 CO 0061 # £191 108: ADDL2 #56,SP 3; Delete stack temps 
0° 83 198 : eee 
0065 194 : Come here if the packed number won't fit in 32 bits. 
80 3 ; Divide by 2**32 to get the high 32 bits of the quadword. 
06 09 Al —9 88 197 118 BLBC 9(R1),13$ 3; Skip if positive 
61 13 99 AF OA $$ 069 198 SUBP4 #BIAS_DIGITS,BIAS_1,419,(R1) ; Make more negative 
13. 10 AE 13° 8D AF OA O06 199 13$ DIVP  #BIAS"DIGITS.BIAS;#19,16(SP) #19, (SP) ; Divide by 2*#32 
04 AB 6E 5 36 —83 9 CVTPL 419, (5P), 4068) teNRl and store bie bits 
F also clears 
02 1D 007D 8 BVS 12$ ; Number too large for a 64-bit integer 
50 D6 OO07F 0 INCL RO : Indicate success, RO = 1 
5E 38 CO 0081 04 12$: ADDL2 4#56,SP : Delete stack temps 
05 84 8 RSB 3; Return 
0085 0? : Come here on failure of COBSCNVOUT. This should never happen. 
00000000'8F DD 085 09 20$:  PUSHL #OTS$_FATINTERR ; OTS fatal error message 
00000000'GF 01 FB 098 19 CALLS #1,G*CIBSSTOP : Signal and don't return 
09 | END 


COBSCVTDQ_RB 
Symbol table 


LIBSSTOP 
OTS$_FATINTERR 


PSECT name 


Page f 


Initialization 
oe processing 


Synbol table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


The working set Limit was 1050 
9010 bytes (18 pages) of virtua 
There were 10 pages of symbol t 
212 source Lines were read in P 
pages of virtual memory were 


Macro Library name 


There were no errors, warnings 
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Bt 8 
Sa 


ekeetene x 00 
eereneee x 00 
— eee een mane + 
! Psect synopsis ! 
— enone nnewonat 
Allocation PSECT No. Attributes 
00000000 < 0.) 00 ¢ 0.) NOPIC USR CON 
00000000 ¢ 0.) O17 ¢ 1.) NOPIC USR CON 
00000092 ( 146.) 02 ¢ 2.) PIC USR CON 


aults CPU Time Elapsed Time 
3 90:00 :00.9% 00:00:00.91 

1 00:00:00.36 00:00:03.75 
140 00:00:01.28 00:00:07.08 
0 b's So 6 00:00:00.77 

50 00:00:00.39 00:00:02.40 

; —88386 00:00:00.01 
00:00:00.02 00:00:00.02 

0 8383: 00:00:00.00 
364 00:00:02.21 00:00:14.94 


ages. 

t memory were used to buffer the intermediate co 
able space —5 to hold 
ass 1, "ain't object records in Pass 2. 
used to define / macros. 


SSS Oe BE enw ener owes e scan + 


_$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 


or information messages. 


19:08:03 


CL 
CL 
CL 


138 non-local and ze Local symbols. 


AX/VMS 
COBRTL 


cro 
REI 


v04-00 Page 
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NOSHR = -— a NOVEC BYTE - 


SHR 


EXE 


WRT NOVEC BYTE 
RD NOURT NOVEC LONG 


MACRO/ENABLE=SUPPRESS  N/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COBCVTDQ/0BJ=0BJ$:COBCVTDQ MSRC$:COBCVTDQ/UPDATE=(ENHS$: COBCVTDQ) 
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